home *** CD-ROM | disk | FTP | other *** search
/ PCMania 40 / PCMania CD40_1.iso / render40 / oca_a / rey.inc < prev    next >
Text File  |  1995-10-05  |  926b  |  33 lines
  1. #include "shapes.inc"
  2.  
  3. #declare Base=union{
  4.         intersection{
  5.         quadric{Ellipsoid scale <2.3 2.3 2.3>}  
  6.         plane{<0 -1 0> 0}
  7.         }
  8.           quadric{Ellipsoid scale <2 .5 2> translate <0 2 0>}
  9. }
  10. #declare Cuerpo=intersection{
  11.         plane{<0 1 0> 4}
  12.         quadric{Hyperboloid_Y scale <.5 2 .5> translate <0 5 0>}
  13.         plane{<0 -1 0> 1}
  14. }
  15. #declare Cabeza=union{
  16.         quadric{Ellipsoid scale <1.3 .4 1.3> translate <0 6.1 0>}
  17.         quadric{Ellipsoid scale <1.1 .4 1.1> translate <0 6.7 0>}
  18.         quadric{Ellipsoid scale <.9 .4 .9> translate <0 7.3 0>}
  19.         intersection{Cone_Y scale <1.1 1.5 1.1> rotate<180 0 0> translate <0 7.6 0>}
  20.         //quadric{Ellipsoid scale <.9 .9 .9> translate<0 9 0>}
  21.         union{
  22.         box{<-1 -1 -1> <1 1 1> scale<.8 .2 .2>}
  23.         box{<-1 -1 -1> <1 1 1> scale<.2 1.5 .2>}
  24.         //scale <.7 .7 .7>
  25.         translate<0 10.5 0>
  26.         }
  27. }
  28. #declare Rey=union{
  29.         union{Base}
  30.         intersection{Cuerpo translate < 0 2 0>}
  31.         union{Cabeza}
  32.         }
  33.